set RECV_LISTEN(404) m_cantspeak

proc m_cantspeak {chid raw parent me} {
	global CHANS_$chid
	regexp {:[^ ]+ 404 [^ ]+ ([^ ]+) :(.+)} $raw -> channel reason
	set num [set "CHANS_$chid\($channel\)"]
	set chanlabel [string tolower [string map { "#" "" } $channel]]
	set reason [string map {" (#$channel)" ""} $reason]
	warning $parent.chan$num "[tr \"Can't speak:\" $reason\n"
}
